gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\GGadminNew.asp
<!-- #INCLUDE FILE="login.asp" --> <head> <meta http-equiv="Content-Language" content="zh-cn"> </head> <% '///********************************* ' 新增管理员程序 '********************************/// Call AdminQx(1,"") '' 判断权限 action=trim(request("action")) Dim dqw Select Case action Case "ruku" dqw="新增管理员 -- 验证有效性" Call Heads_GGadmin(dqw) call adminnew_ruku() Case else dqw="新增管理员 -- 请输入有效管理信息" Call Heads_GGadmin(dqw) Call adminnew_main() end Select '//************************************************ ' 新增管理员入库 '************************************************// Sub adminnew_ruku() if Len(trim(request("admin")))<1 or Len(trim(request("passwd")))<1 or Len(trim(request("person")))<1 then '' 简易判断是否为空 response.write "<table width=580 border=1 cellpadding=0 bordercolor=#C0C0C0 bgcolor=#ffffff height=200 style='border-collapse: collapse'><tr><td align=center>请输入管理员各项内容后进行添加<BR><BR>"&Go_back&"</td></tr></table>" else rs.open "select count(*) from admin where admin='"&trim(request("admin"))&"'",conn,1,1 '' 判断管理帐号是否已存在 if rs(0)>0 then response.write "<table width=580 border=1 cellpadding=0 bordercolor=#C0C0C0 bgcolor=#ffffff height=200 style='border-collapse: collapse'><tr><td align=center>您输入的帐号已存在,请返回输入有效的管理帐号<BR><BR>"&Go_back&"</a></td></tr></table>" else '' 权限标识组织 '' 分割模式: 管理员设置,广告图管理,分类进行管理类型#分类1,分类2,分类3,... Dim qxbs:qxbs="" qxbs=trim(request("qx1"))&","&trim(request("qx2"))&","&trim(request("qx3")) if trim(request("qx3"))="2" then classids=replace(replace(replace(trim(request("class"))," ",""),"x,",""),"x","") if classids="" then response.write "<table width=580 border=1 cellpadding=0 bordercolor=#C0C0C0 bgcolor=#ffffff height=200 style='border-collapse: collapse'><tr><td align=center>您选择有效的广告位分类<BR><BR>"&Go_back&"</a></td></tr></table>" response.end end if qxbs=qxbs&"#"&classids else qxbs=qxbs&"#"&"all" end if conn.execute("Insert into Admin(admin,passwd,power,person) values('"&trim(request("admin"))&"','"&trim(request("passwd"))&"','"&qxbs&"','"&request("person")&"')") response.write "<table width=580 border=1 cellpadding=0 bordercolor=#C0C0C0 bgcolor=#ffffff height=200 style='border-collapse: collapse'><tr><td align=center>新增管理员成功!<BR><BR><a href='?'>[继续新增]</a> <a href='GGadmins.asp'>[查看全部已有]</a></td></tr></table>" end if rs.close end if End Sub '//************************************************ ' 新增管理员显示 '************************************************// Sub adminnew_main() %><div align="center"> <table width="680" id="table1" border=1 cellpadding=2 bordercolor=#C0C0C0 bgcolor=#ffffff style="border-collapse: collapse"> <form method="POST" action="?action=ruku"> <tr> <td class="td1" height="30" align="center" width="130">管理帐号</td> <td class="td1" height="30"> <input type="text" name="admin" size="17" maxlength="20"> 20字符以内</td> <td class="td1" height="30" align="center" width="300">所有权限 <a href="javascript:opw('ZonGG.asp?a=Help.asp','ZonGG',800,600)">[权限说明]</a></td> </tr> <tr> <td align="center" width="130"> 登陆密码</td> <td> <input type="text" name="passwd" size="12" maxlength="20"> 20字符以内</td> <td rowspan="2" valign="top"> <input type="checkbox" name="qx1" value="1">管理员设置 <input type="checkbox" name="qx2" value="1">广告图管理 <br><br> <select size="1" name="qx3" style="line-height: 200%"> <option value="0">-- 请选择对分类进行管理的类型/不选说明没有</option> <option value="1">1、分类/广告位总管 含添加删除分类</option> <option value="2">2、对下列选中分类拥有更新、清理权限</option> </select> <br> <% Response.write "<select name=class size=7 multiple>" response.write "<option value='x'>--------- 请选择权限所属分类 可多选 ---------</option>" Set RsLs=Server.CreateObject("ADODB.Recordset") '开始广告分类循环 RsLs.Open "select cid,cname from class ",conn,1,1 do while not RsLs.eof response.write "<option value='"&RsLs(0)&"'>"&RsLs(1)&"</option>" RsLs.movenext loop RsLs.Close Set RsLs=Nothing Response.write "</select>" %> </td> </tr> <tr> <td align="center" width="130"> 个人资料</td> <td> <textarea rows="9" name="person" cols="33">称呼: 电话: 网址: 备注: </textarea></td> </tr> <tr> <td colspan="3" height="40"> <p align="center"> <input type="submit" value="确定新增管理员" name="B1"></td> </tr></form> <tr> <td align="center" colspan="3" height="30" class="td1"><font class=red>注:</font>各项内容不可为空,管理帐号不要与已有帐号重复</td> </tr> </table> </div> <%End Sub %>